home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 7 (Internal Edition) / Apple R&P Lib Internal v7.0.iso / 5-Fonts & Software / Macintosh Yellow Pages 2.0 / Macintosh Yellow Pages 2.0 / card_30589.txt < prev    next >
Text File  |  1991-03-12  |  10KB  |  502 lines
  1. -- card: 30589 from stack: in.0
  2. -- bmap block id: 30727
  3. -- flags: 4000
  4. -- background id: 29303
  5. -- name: Registration
  6. ----- HyperTalk script -----
  7. on openCard
  8.   set the userModify to true
  9.   put the date into bkgnd field "Page Number"
  10.  
  11.   global userInfo
  12.   put userInfo into card field "Address"
  13.  
  14.   click at 237,185
  15. end openCard
  16.  
  17. on help
  18.   send mouseUp to card button "Help"
  19. end help
  20.  
  21.  
  22. -- part 44 (field)
  23. -- low flags: 01
  24. -- high flags: 0001
  25. -- rect: left=79 top=45 right=164 bottom=243
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 10
  31. -- style flags: 0
  32. -- line height: 13
  33. -- part name: 
  34.  
  35.  
  36. -- part 46 (button)
  37. -- low flags: 00
  38. -- high flags: A005
  39. -- rect: left=248 top=90 right=108 bottom=373
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 3
  44. -- text size: 10
  45. -- style flags: 256
  46. -- line height: 13
  47. -- part name: Word Processing
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   if the hilite of me is true then
  51.     play harpsichord at6
  52.   else
  53.     play harpsichord at5
  54.   end if
  55. end mouseUp
  56.  
  57.  
  58.  
  59. -- part 47 (field)
  60. -- low flags: 00
  61. -- high flags: 0000
  62. -- rect: left=63 top=167 right=276 bottom=244
  63. -- title width / last selected line: 0
  64. -- icon id / first selected line: 0 / 0
  65. -- text alignment: 0
  66. -- font id: 20
  67. -- text size: 12
  68. -- style flags: 0
  69. -- line height: 18
  70. -- part name: Address
  71. ----- HyperTalk script -----
  72. on closeField
  73.   if card field "Address" is not empty then
  74.     global userInfo
  75.     put card field "Address" into userInfo
  76.   end if
  77. end closeField
  78.  
  79.  
  80. -- part 48 (field)
  81. -- low flags: 01
  82. -- high flags: 0000
  83. -- rect: left=247 top=45 right=87 bottom=492
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 0
  87. -- font id: 3
  88. -- text size: 10
  89. -- style flags: 0
  90. -- line height: 13
  91. -- part name: 
  92.  
  93.  
  94. -- part 66 (button)
  95. -- low flags: 00
  96. -- high flags: A005
  97. -- rect: left=248 top=108 right=126 bottom=373
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 0 / 0
  100. -- text alignment: 1
  101. -- font id: 3
  102. -- text size: 10
  103. -- style flags: 256
  104. -- line height: 13
  105. -- part name: Spreadsheet
  106. ----- HyperTalk script -----
  107. on mouseUp
  108.   if the hilite of me is true then
  109.     play harpsichord at6
  110.   else
  111.     play harpsichord at5
  112.   end if
  113. end mouseUp
  114.  
  115.  
  116.  
  117. -- part 67 (button)
  118. -- low flags: 00
  119. -- high flags: A005
  120. -- rect: left=248 top=126 right=144 bottom=373
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 0 / 0
  123. -- text alignment: 1
  124. -- font id: 3
  125. -- text size: 10
  126. -- style flags: 256
  127. -- line height: 13
  128. -- part name: Database
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   if the hilite of me is true then
  132.     play harpsichord at6
  133.   else
  134.     play harpsichord at5
  135.   end if
  136. end mouseUp
  137.  
  138.  
  139.  
  140. -- part 68 (button)
  141. -- low flags: 00
  142. -- high flags: A005
  143. -- rect: left=248 top=144 right=162 bottom=373
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 1
  147. -- font id: 3
  148. -- text size: 10
  149. -- style flags: 256
  150. -- line height: 13
  151. -- part name: Graphics
  152. ----- HyperTalk script -----
  153. on mouseUp
  154.   if the hilite of me is true then
  155.     play harpsichord at6
  156.   else
  157.     play harpsichord at5
  158.   end if
  159. end mouseUp
  160.  
  161.  
  162.  
  163. -- part 69 (button)
  164. -- low flags: 00
  165. -- high flags: A005
  166. -- rect: left=248 top=162 right=180 bottom=373
  167. -- title width / last selected line: 0
  168. -- icon id / first selected line: 0 / 0
  169. -- text alignment: 1
  170. -- font id: 3
  171. -- text size: 10
  172. -- style flags: 256
  173. -- line height: 13
  174. -- part name: Communication
  175. ----- HyperTalk script -----
  176. on mouseUp
  177.   if the hilite of me is true then
  178.     play harpsichord at6
  179.   else
  180.     play harpsichord at5
  181.   end if
  182. end mouseUp
  183.  
  184.  
  185.  
  186. -- part 70 (button)
  187. -- low flags: 00
  188. -- high flags: A005
  189. -- rect: left=248 top=180 right=198 bottom=373
  190. -- title width / last selected line: 0
  191. -- icon id / first selected line: 0 / 0
  192. -- text alignment: 1
  193. -- font id: 3
  194. -- text size: 10
  195. -- style flags: 256
  196. -- line height: 13
  197. -- part name: Network Products
  198. ----- HyperTalk script -----
  199. on mouseUp
  200.   if the hilite of me is true then
  201.     play harpsichord at6
  202.   else
  203.     play harpsichord at5
  204.   end if
  205. end mouseUp
  206.  
  207.  
  208.  
  209. -- part 71 (button)
  210. -- low flags: 00
  211. -- high flags: A005
  212. -- rect: left=248 top=198 right=216 bottom=373
  213. -- title width / last selected line: 0
  214. -- icon id / first selected line: 0 / 0
  215. -- text alignment: 1
  216. -- font id: 3
  217. -- text size: 10
  218. -- style flags: 256
  219. -- line height: 13
  220. -- part name: Programming
  221. ----- HyperTalk script -----
  222. on mouseUp
  223.   if the hilite of me is true then
  224.     play harpsichord at6
  225.   else
  226.     play harpsichord at5
  227.   end if
  228. end mouseUp
  229.  
  230.  
  231.  
  232. -- part 74 (button)
  233. -- low flags: 00
  234. -- high flags: A005
  235. -- rect: left=373 top=90 right=108 bottom=498
  236. -- title width / last selected line: 0
  237. -- icon id / first selected line: 0 / 0
  238. -- text alignment: 1
  239. -- font id: 3
  240. -- text size: 10
  241. -- style flags: 256
  242. -- line height: 13
  243. -- part name: Storage Devices
  244. ----- HyperTalk script -----
  245. on mouseUp
  246.   if the hilite of me is true then
  247.     play harpsichord at6
  248.   else
  249.     play harpsichord at5
  250.   end if
  251. end mouseUp
  252.  
  253.  
  254.  
  255. -- part 75 (button)
  256. -- low flags: 00
  257. -- high flags: A005
  258. -- rect: left=373 top=108 right=126 bottom=498
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 0 / 0
  261. -- text alignment: 1
  262. -- font id: 3
  263. -- text size: 10
  264. -- style flags: 256
  265. -- line height: 13
  266. -- part name: Printers
  267. ----- HyperTalk script -----
  268. on mouseUp
  269.   if the hilite of me is true then
  270.     play harpsichord at6
  271.   else
  272.     play harpsichord at5
  273.   end if
  274. end mouseUp
  275.  
  276.  
  277.  
  278. -- part 76 (button)
  279. -- low flags: 00
  280. -- high flags: A005
  281. -- rect: left=373 top=126 right=144 bottom=498
  282. -- title width / last selected line: 0
  283. -- icon id / first selected line: 0 / 0
  284. -- text alignment: 1
  285. -- font id: 3
  286. -- text size: 10
  287. -- style flags: 256
  288. -- line height: 13
  289. -- part name: Video/Monitors
  290. ----- HyperTalk script -----
  291. on mouseUp
  292.   if the hilite of me is true then
  293.     play harpsichord at6
  294.   else
  295.     play harpsichord at5
  296.   end if
  297. end mouseUp
  298.  
  299.  
  300.  
  301. -- part 77 (button)
  302. -- low flags: 00
  303. -- high flags: A005
  304. -- rect: left=373 top=144 right=162 bottom=498
  305. -- title width / last selected line: 0
  306. -- icon id / first selected line: 0 / 0
  307. -- text alignment: 1
  308. -- font id: 3
  309. -- text size: 10
  310. -- style flags: 256
  311. -- line height: 13
  312. -- part name: Business
  313. ----- HyperTalk script -----
  314. on mouseUp
  315.   if the hilite of me is true then
  316.     play harpsichord at6
  317.   else
  318.     play harpsichord at5
  319.   end if
  320. end mouseUp
  321.  
  322.  
  323.  
  324. -- part 78 (button)
  325. -- low flags: 00
  326. -- high flags: A005
  327. -- rect: left=373 top=162 right=180 bottom=498
  328. -- title width / last selected line: 0
  329. -- icon id / first selected line: 0 / 0
  330. -- text alignment: 1
  331. -- font id: 3
  332. -- text size: 10
  333. -- style flags: 256
  334. -- line height: 13
  335. -- part name: Personal/Home
  336. ----- HyperTalk script -----
  337. on mouseUp
  338.   if the hilite of me is true then
  339.     play harpsichord at6
  340.   else
  341.     play harpsichord at5
  342.   end if
  343. end mouseUp
  344.  
  345.  
  346.  
  347. -- part 79 (button)
  348. -- low flags: 00
  349. -- high flags: A005
  350. -- rect: left=373 top=180 right=198 bottom=498
  351. -- title width / last selected line: 0
  352. -- icon id / first selected line: 0 / 0
  353. -- text alignment: 1
  354. -- font id: 3
  355. -- text size: 10
  356. -- style flags: 256
  357. -- line height: 13
  358. -- part name: Games
  359. ----- HyperTalk script -----
  360. on mouseUp
  361.   if the hilite of me is true then
  362.     play harpsichord at6
  363.   else
  364.     play harpsichord at5
  365.   end if
  366. end mouseUp
  367.  
  368.  
  369.  
  370. -- part 80 (button)
  371. -- low flags: 00
  372. -- high flags: A005
  373. -- rect: left=373 top=198 right=216 bottom=498
  374. -- title width / last selected line: 0
  375. -- icon id / first selected line: 0 / 0
  376. -- text alignment: 1
  377. -- font id: 3
  378. -- text size: 10
  379. -- style flags: 256
  380. -- line height: 13
  381. -- part name: 
  382. ----- HyperTalk script -----
  383. on mouseUp
  384.   if the hilite of me is true then
  385.     play harpsichord at6
  386.   else
  387.     play harpsichord at5
  388.   end if
  389. end mouseUp
  390.  
  391.  
  392.  
  393. -- part 87 (field)
  394. -- low flags: 01
  395. -- high flags: 2002
  396. -- rect: left=253 top=225 right=275 bottom=490
  397. -- title width / last selected line: 0
  398. -- icon id / first selected line: 0 / 0
  399. -- text alignment: 0
  400. -- font id: 3
  401. -- text size: 10
  402. -- style flags: 0
  403. -- line height: 13
  404. -- part name: 
  405.  
  406.  
  407. -- part 90 (button)
  408. -- low flags: 00
  409. -- high flags: 2000
  410. -- rect: left=12 top=305 right=337 bottom=48
  411. -- title width / last selected line: 0
  412. -- icon id / first selected line: 0 / 0
  413. -- text alignment: 1
  414. -- font id: 0
  415. -- text size: 12
  416. -- style flags: 0
  417. -- line height: 16
  418. -- part name: Help
  419. ----- HyperTalk script -----
  420. on mouseDown
  421.   play stop
  422.   play harpsichord a7e
  423. end mouseDown
  424.  
  425. on mouseUp
  426.   set lockScreen to true
  427.   go to card "Registration Help"
  428.   put the date into bkgnd field "Page Number"
  429.   go to card "Registration Help"
  430.   set lockScreen to false
  431. end mouseUp
  432.  
  433.  
  434. -- part 91 (button)
  435. -- low flags: 00
  436. -- high flags: 2000
  437. -- rect: left=53 top=305 right=337 bottom=89
  438. -- title width / last selected line: 0
  439. -- icon id / first selected line: 0 / 0
  440. -- text alignment: 1
  441. -- font id: 0
  442. -- text size: 12
  443. -- style flags: 0
  444. -- line height: 16
  445. -- part name: Print
  446. ----- HyperTalk script -----
  447. on mouseDown
  448.   play stop
  449.   play harpsichord a7e
  450. end mouseDown
  451.  
  452. on mouseUp
  453.   answer "Print registration form?" with "Cancel" or "OK"
  454.   if it is "OK" then
  455.     global alreadyPrinted
  456.     put true into alreadyPrinted
  457.     set lockScreen to true
  458.     open printing
  459.     print 2 cards
  460.     close printing
  461.     set lockScreen to false
  462.   end if
  463. end mouseUp
  464.  
  465.  
  466.  
  467.  
  468. -- part 93 (field)
  469. -- low flags: 00
  470. -- high flags: 4000
  471. -- rect: left=388 top=200 right=218 bottom=492
  472. -- title width / last selected line: 0
  473. -- icon id / first selected line: 0 / 0
  474. -- text alignment: 0
  475. -- font id: 3
  476. -- text size: 10
  477. -- style flags: 256
  478. -- line height: 13
  479. -- part name: Other
  480.  
  481.  
  482. -- part contents for background part 13
  483. ----- text -----
  484. REGISTRATION
  485.  
  486. -- part contents for card part 44
  487. ----- text -----
  488. Anyone can be  a registered user of  the  Macintosh  Yellow Pages.  Registration is FREE, and so are the  benefits  you  will   receive.  As  a  registered user,  you  will receive  free  newsletters whenever  the Macintosh Yellow Pages  is  updated.   We  want  to keep you up-to-date.
  489.  
  490. -- part contents for card part 48
  491. ----- text -----
  492. What kind of product information would you like to  see  in  the  future  updates  of  the Macintosh Yellow Pages?
  493.  
  494. -- part contents for background part 22
  495. ----- text -----
  496. 2/2/91
  497.  
  498. -- part contents for card part 87
  499. ----- text -----
  500. FAX TO:  (617) 577-9541,   OR MAIL TO:
  501. Macintosh Yellow Pages, Kendall Square
  502. P.O. Box 23, Cambridge, MA 02142.